unit VideoConsts;

interface

uses Windows;

const
  BASEPORT = 5555;
  LISTENPORT = BASEPORT;
  CONNECTPORT = BASEPORT;
  
type
  _SERVER_CTRL_MSG = record
    strCommand: array [0..99] of Char;
    nContentUsesByte: DWORD;
    strContent: array [0..999] of Char;
  end;
  PServerControlInfo = ^TServerControlInfo;
  TServerControlInfo = _SERVER_CTRL_MSG;

  PClientControlInfo = ^TClientControlInfo;
  TClientControlInfo = _SERVER_CTRL_MSG;

  _VIDEO_DATA = record
    bKeyFrame: Boolean;
    nSampleNum: DWORD;
    nUsedSize: DWORD;
    nGetedSize: DWORD;
    Buf: array [0..8179] of Byte;
  end;
  PVideoDataInfo = ^TVideoDataInfo;
  TVideoDataInfo = _VIDEO_DATA;

implementation

end.